From: John Paul Wallington <jpw@pobox.com>
Date: Mon, 19 Jul 2004 12:31:24 +0000 (+0000)
Subject: (dired-file-set-difference): Don't use `caddr'.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~21594
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=1df33950afcc72f797f8369591b2989012cbce86;p=emacs.git

(dired-file-set-difference): Don't use `caddr'.
---

diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index 9b401b7e41c..6c1a9ad36f0 100644
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -163,8 +163,8 @@ condition.  Two file items are considered to match if they are equal
 	(unless (let ((list list2))
 		  (while (and list
 			      (not (let* ((file2 (car list))
-					  (fa1 (caddr file1))
-					  (fa2 (caddr file2))
+					  (fa1 (car (cddr file1)))
+					  (fa2 (car (cddr file2)))
 					  (size1 (nth 7 fa1))
 					  (size2 (nth 7 fa2))
 					  (mtime1 (float-time (nth 5 fa1)))